Billentyűzetről bevitt sorok írása fájlba (szoveg.txt) (Sorszerk.pas)
program Sorszerk;
uses crt;
var f:text;
s:string;
BEGIN
clrscr;
assign (f,'szoveg.txt');
rewrite (f);
s:='*';
Azért rakunk bele egy *-ot, hogy legyen értéke, ne legyen üres.
while (length(s)>0) do begin
Addig tart a ciklus, amíg az s nevű string értéke nem nulla.
write('? ');
A sor elejére kiírunk egy kérdőjelet.
readln(s);
Beolvassuk billentyűzetről az adatot.
if(length(s)=0) then break;
Ha a bevitt sor üres, azaz üres entert tartalmaz, akkor vége a ciklusnak.
writeln(f,s);
Kiírja a bevitt sort a fájlba.
end;
close(f);
END.
